This markdown is a preliminary investigation of the data provided by the Office of the Commissioner for Public Sector Employment.The data contains details from every advertisement on iworkforsa.gov.au.
Note that these data have been classified as "Public" by the OCPSE.
library(readxl)
library(tidyverse)
library(here)
library(lubridate)
library(kableExtra)
library(naniar)
library(patchwork)
library(skimr)
library(DT)
library(ComplexUpset)
library(tidytext)
library(tidyr)
path <- here("IWORK4SA Data 2017-2021, Classification-Public.xlsx")
advertiments <- path %>%
excel_sheets() %>%
map_dfr(
function(sheet) {
temp = read_excel(sheet, path = path, skip = 8)
mutate(temp, Year = sheet)
}
)
Data read in from xlsx files often has bits of extra information above and below the actual "data". To check that we haven't accidentally imported that we can have a look at the top and bottom of our data set.
datatable(advertiments)
## Warning in instance$preRenderHook(instance): It seems your data is too big
## for client-side DataTables. You may consider server-side processing: https://
## rstudio.github.io/DT/server.html